Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue72/dynimag/Listing2.pas

Pascal/Delphi Source File | 2001-07-03 | 544 b | 20 lines

procedure Table2Img(const TableName, FieldName: String; RecNo: Integer);
const
  Offset = 8; // sizeof Graphic header
var
  DataSet: TClientDataSet;
  Str: String;
  i: Integer;
begin
  DataSet := TClientDataSet.Create(nil);
  try
    DataSet.FileName := TableName;
    DataSetRecNo(DataSet, RecNo); // move to the right RecNo
    Str := (DataSet.FieldByName(FieldName) AS TGraphicField).AsString;
    for i:=Succ(Offset) to Length(Str) do write(Str[i]);
  finally
    DataSet.Close;
    DataSet.Free;
  end
end {Table2Img};